Use Windows.pkg
Use DFClient.pkg
Use cDbCJGridPromptList.pkg
Use cDoctorDataDictionary.dd

Object oDoctorSL is a dbModalPanel
    Set Size to 133 333
    Set Location     to 4 5
    Set Border_Style to Border_Thick
    Set Label to "Doctors"
    
    Object oDOCTOR_DD is a cDoctorDataDictionary
    End_Object

    Set Main_DD to oDOCTOR_DD
    Set Server to oDOCTOR_DD
    
    Object oSelList is a cDbCJGridPromptList
        Set peAnchors to anAll
        Set Size to 105 321
        Set Location  to 6 6
        Set pbAutoOrdering to False

        Object oDOCTOR_DOCTOR_ is a cDbCJGridColumn
            Entry_Item DOCTOR.DOCTOR#
            Set piWidth to 119
            Set psCaption to "Doctor #"
            Set peHeaderAlignment to xtpAlignmentLeft
        End_Object

        Object oDOCTOR_LAST_NAME is a cDbCJGridColumn
            Entry_Item DOCTOR.LAST_NAME
            Set piWidth to 137
            Set psCaption to "Last Name"
        End_Object

        Object oDOCTOR_FIRST_NAME is a cDbCJGridColumn
            Entry_Item DOCTOR.FIRST_NAME
            Set piWidth to 111
            Set psCaption to "First Name"
        End_Object

        Object oDOCTOR_TITLE is a cDbCJGridColumn
            Entry_Item DOCTOR.TITLE
            Set piWidth to 114
            Set psCaption to "Title"
        End_Object
    End_Object

    Object oOK_bn is a Button
        Set Label     to "&OK"
        Set Location to 115 169
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Ok of oSelList
        End_Procedure
    End_Object

    Object oCancel_bn is a Button
        Set Label     to "&Cancel"
        Set Location to 115 223
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Cancel of oSelList
        End_Procedure
    End_Object

    Object oSearch_bn is a Button
        Set Label     to "&Search..."
        Set Location to 115 277
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Search of oSelList
        End_Procedure
    End_Object

    On_Key Key_Alt+Key_O Send KeyAction of oOk_bn
    On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn
    On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn

End_Object

